Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0292.ZIP/MAILMEN.ARC/PRINTROL.PRG

Text File | 1985-12-21 | 6KB | 210 lines

* Converted to Dbase III by Bill Simpson 6/7/85 [phone]
*!!*       dBASE CONVERT - dBASE III File Conversion Aid  v1.0 6/14/84
*
SET HEADING OFF
SET SAFETY OFF
SET TALK OFF
CLEAR
STORE .T. TO BEVEL
DO WHILE BEVEL
  STORE ' ' TO ANS1
  @ 10,5 say "Do You Wish To Print Cards of friends or business (F or B) ?"
  @ 10,75 GET ANS1
  READ
  CLEAR GETS
  IF UPPER(ANS1) = 'F' .OR. UPPER(ANS1) = 'B'
    STORE .F. TO BEVEL
  ENDIF
ENDDO
CLEAR
@ 10,5 SAY 'Mount 2 1/8" by 4" Roladex Cards in Printer'
@ 12,5 SAY 'Press any key when ready'
?
?
?
?
?
?
?
?
?
wait
IF UPPER(ANS1) = 'F'
  USE MAIL
  STORE .T. TO BLUE
  DO WHILE BLUE
    STORE ' ' TO INDEX1
    CLEAR
    @ 10,5 SAY "Do You Want to Reindex the File (Y OR N) ?"
    @ 10,75 GET INDEX1
    READ
    CLEAR GETS
    IF UPPER(INDEX1)= 'Y'
      INDEX ON LAST TO LAST
      STORE .F. TO BLUE
    ELSE
      IF UPPER(INDEX1) = 'N'
        STORE .F. TO BLUE
      ENDIF
    ENDIF
  ENDDO
  CLEAR
  USE MAIL INDEX LAST
  GO TOP
  SET PRINT ON
  ? CHR(15)
  DO WHILE .NOT. EOF()
    IF FRIEND <> ' '
      ? TRIM(LAST)-",", FIRST, ' ', PROF1
      ? ADDR1, ' ', PROF2
      ? ADDR2
      ? TRIM(CITY)-"," , STATE, ZIP
      ? COMPANY
      ? 'TEL:WRK', TEL_WRK
      ? 'TEL:HM', TEL_HM
      ?
      ?
      ?
      ?
      ?
      ?
    ENDIF
    SKIP
  ENDDO
  ? CHR(18)
  SET PRINT OFF
  RETURN
ENDIF
IF UPPER(ANS1) = 'B'
  STORE .T. TO RIGHT
  DO WHILE RIGHT
    STORE ' ' TO P
    CLEAR
    @ 10,5 SAY "Press 'A' To Print Cards For All Categories"
    @ 12,5 SAy "Press 'S' to print selected categories"
    @ 12,70 get P
    READ
    CLEAR GETS
    IF UPPER(P) = 'A' .OR. UPPER(P) = 'S'
      STORE .F. TO RIGHT
    ENDIF
  ENDDO
  IF UPPER(P) = 'A'
    CLEAR
    USE MAIL
    GO TOP
    SET PRINT ON
    ? CHR(15)
    DO WHILE .NOT. EOF()
      IF FRIEND = ' '
        ? TRIM(LAST)-",", FIRST, '  ', PROF1
        ? COMPANY, '  ', PROF2
        ? ADDR1, '  ', PROF3
        ? ADDR2
        ? TRIM(CITY)-"," , STATE, ZIP
        ? 'TEL:WRK', TEL_WRK
        ? 'TEL:HM', TEL_HM
        ?
        ?
        ?
        ?
        ?
        ?
      ENDIF
      SKIP
    ENDDO
    ? CHR(18)
    SET PRINT OFF
    RETURN
  ENDIF
  IF UPPER(P) = 'S'
    STORE .T. TO CONTINUE
    DO WHILE CONTINUE
      SET PRINT OFF
      STORE .T. TO LEVEL
      DO WHILE LEVEL
        STORE ' ' TO ANS
        STORE ' ' TO CAT
        CLEAR
        ?
        ?
        ?
        ?
        *!! There will be no automatic colon following this prompt string.
        ACCEPT "What Priority Level Are You Searching (1,2, OR 3) ?" TO ANS
        ?
        ?
        *!! There will be no automatic colon following this prompt string.
        ACCEPT "What Category Are You Looking For ?" TO CAT
        IF ANS = '1' .OR. ANS = '2' .OR. ANS = '3'
          STORE 'PROF'-ANS TO PROF
          *!! Logical constant converted.
          STORE .F. TO LEVEL
        ELSE
        ENDIF
      ENDDO
      CLEAR
      STORE UPPER(CAT) TO CAT
      USE MAIL
      *!! Logical constant converted.
      STORE .T. TO TRUE
      DO WHILE TRUE
        STORE ' ' TO INDEX
        @ 10,5 SAY "Do You Want to Reindex the File (Y OR N) ?" GET INDEX
        READ
        IF UPPER(INDEX)= 'Y'
          INDEX ON &PROF TO &PROF
          *!! Logical constant converted.
          STORE .F. TO TRUE
        ELSE
          IF UPPER(INDEX) = 'N'
            *!! Logical constant converted.
            STORE .F. TO TRUE
          ELSE
          ENDIF
        ENDIF
      ENDDO
      USE MAIL INDEX &PROF
      *!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
      FIND &CAT
      CLEAR
      SET PRINT ON
      ? CHR(15)
      *!! Logical constant converted.
      STORE .T. TO TRUE
      DO WHILE .NOT. EOF() .AND. &PROF = '&CAT'
        ? TRIM(LAST)-",", FIRST, '  ', PROF1
        ? COMPANY, '  ', PROF2
        ? ADDR1, '  ', PROF3
        ? ADDR2
        ? TRIM(CITY)-"," , STATE, ZIP
        ? 'TEL:WRK', TEL_WRK
        ? 'TEL:HM', TEL_HM
        ?
        ?
        ?
        ?
        ?
        ?
        SKIP
      ENDDO
      CLEAR
      STORE ' ' TO CONT
      @ 10,5 SAY 'Do you wish to continue ?'
      @ 12,5 SAY "Press 'N' to Return to the Menu"
      @ 14,5 SAY 'Press any other key to continue'
      @ 14,40 GET CONT
      READ
      CLEAR GETS
      IF UPPER(CONT) = 'N'
        ? CHR(18)
        SET PRINT OFF
        *!! Logical constant converted.
        STORE .F. TO CONTINUE
        RETURN
      ELSE
      ENDDO
    ENDIF
  ENDIF